1 PRINT"[147]FLOP V1.1-RELOCATOR"
2 INPUT"HI PROGRAM     (HEX)";IN$:GOSUB17:P1=ER:P1$=IN$:IFER<0GOTO2
3 INPUT"HI READ-PUFFER (HEX)";IN$:GOSUB17:P2=ER:P2$=IN$:IFER<0GOTO3
4 INPUT"HI DIR-PUFFER  (HEX)";IN$:GOSUB17:P3=ER:P3$=IN$:IFER<0GOTO4
5 OPEN1,8,8,"FLOP V1.1 C00405,P,R"
6 OPEN2,8,9,"FLOP V1.1 C10608,P,R"
7 OPEN3,8,1,"FLOP V1.1 "+P1$+P2$+P3$
8 GET#1,I1$:I1=ASC(I1$+CHR$(0))
9 GET#2,I2$:I2=ASC(I2$+CHR$(0))
10 DF=I2-I1:O=I1:SA=ST
11 IFDF=1THENO=P1+(I1-192)
12 IFDF=2THENO=P2+(I1-4)
13 IFDF=3THENO=P3+(I1-5)
14 PRINT#3,CHR$(O);:IFSA=0GOTO8
15 CLOSE1:CLOSE2:CLOSE3
16 END
17 ER=0:E2=-1:FORA=1TO2:A$=MID$(IN$,A,1):FORB=1TO16
18 IFA$=MID$("0123456789ABCDEF",B,1)THENE2=B-1
19 NEXT:IFE2<0THENER=-1:RETURN
20 ER=16*ER+E2:NEXT:RETURN